home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / comms / other / amicomsys / amicomsysmui.lha / AmiComSys / rexx / SendWEB.amicomsys < prev    next >
Text File  |  1998-01-25  |  831b  |  48 lines
  1. /* Send WEB-address to your browser
  2.  Currently supported is Aweb, Amosaic, Ibrowse and Voyager.
  3.  $VER: SendWEB.amicomsys 1.3 (01.11.1997) Håkan Parting
  4. */
  5. parse arg args
  6. options results
  7.  
  8. if show('P','AWEB.1') then
  9. do
  10.     address 'AWEB.1'
  11.     OPEN args
  12.     Exit
  13. end
  14. if show('P','AMOSAIC.1') then
  15. do 
  16.     address 'AMOSAIC.1'
  17.     JUMP URL args
  18.     Exit
  19. end
  20. if show('P','IBROWSE.1') then
  21. do
  22.     address 'IBROWSE.1'
  23.     NewWindow args
  24.     Exit
  25. end
  26. if show('P','IBROWSE') then
  27. do
  28.     address 'IBROWSE'
  29.     GotoUrl args
  30. /* Change GotoUrl to NewWindow if you want another window to open */
  31.     Exit
  32. end
  33. if show('P','VOYAGER') then
  34. do
  35.     address 'VOYAGER'
  36.     OPENURL args NEW
  37.     Exit
  38. end
  39. /* Set the path to your web-browser under the Misc-tab in AmiComSys settings.
  40. */
  41.  
  42. ADDRESS AMICOMSYS
  43. OPTIONS RESULTS;
  44. GET stem info.;
  45.  
  46. ADDRESS COMMAND "c:run >NIL: "info.browserpath" "args;
  47. Exit
  48.